Prezados, bom dia!
Por favor, como faço para alterar a orientação da macro abaixo? Antes eu queria que ela fosse nessa posição que está, porém agora eu gostaria apenas de trocar a direção dos dados.

Na imagem anexa, contém mais dados para entendimento dos colegas.

Private Sub CommandButton2_Click()
Dim cod As Range, codAdd As String, m As Long, p As String, c As Long, pr As Range
Set cod = Rows(1).Find("<cod>", LookAt:=xlWhole)
   If Not cod Is Nothing Then
    codAdd = cod.Address
     Do
      c = Application.Match("<produto>", Range(cod.Address & ":XFD1"), 0) + cod.Column - 1
      p = Cells(1, c + 1)
      m = Sheets("meu cadastro").Cells(Rows.Count, 4).End(3).Row
      For Each pr In Sheets("meu cadastro").Range("D2:D10000" & m)
       If LCase(p) Like "*" & LCase(pr.Value) & "*" Then
        cod.Offset(, 1).Value = Sheets("meu cadastro").Cells(pr.Row, 2)
        Exit For
       End If
      Next pr
      Set cod = Rows(1).FindNext(After:=cod)
     Loop While cod.Address <> codAdd
   End If
End Sub

Essa macro foi criado pelo Osvaldomp, ele me ajudou no site http://www.hardware.com.br (3 dias atrás).

Agradeço pela atenção de todos.

Muito obrigado!

Atenciosamente,
Marco